home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Programming
/
DiceSource
/
lib
/
alib
/
translator.a
< prev
next >
Wrap
Text File
|
1994-02-01
|
727b
|
42 lines
; autoinit if you ever reference TRANSLATOR.LIBRARY
;
; (c)Copyright 1990, Matthew Dillon, All Rights Reserved
;
; can't use pc-relative between different code sections
; and cannot put string in autoinit section!
xdef _TranslatorBase
xref __AutoFail0
_LVOOpenLibrary equ -552
_LVOCloseLibrary equ -414
section autoinit0,code
moveq.l #0,D0
lea tranname(pc),A1
jsr _LVOOpenLibrary(A6)
move.l D0,_TranslatorBase(A4)
beq __AutoFail0
bra i10
tranname dc.b 'translator.library',0
ds.w 0
i10
section autoexit0,code
move.l _TranslatorBase(A4),D0
beq l10
move.l D0,A1
jsr _LVOCloseLibrary(A6)
l10
section libbss,bss
_TranslatorBase ds.l 1
END